# (decoded with TMPL 11972)
{----------}
Procedure Do%MenuItemName%;
var
	%menuItemName%Info:	%menuItemName%Rec;
Begin
	with %menuItemName%Info do begin
		{initialize info}
		%InitFields%
		if Get%MenuItemName% (%menuItemName%Info) then begin
			{use info}
		end; {if}
	end; {with}
End; {Do%MenuItemName%}